home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Network Login Background.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\60) Before Login Window"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\30) Before Login Window"
  6. "NAME"="Background: Color"
  7. "VERSION"="1.12"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Set Color"
  10. "TEXT 2"="Reset Color"
  11. "DESCRIPTION 1"="You can change the background color, that is displayed before any user is able to login (means: before the login window appears), with this plug-in."
  12. "DESCRIPTION 2"="Either you set the color here or reset to the default color by clicking on "Reset Color"."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for this option."
  18.  
  19. 'Cyan 00 FF FF
  20. 'Magenta FF 00 FF
  21. sP="HKUS\.DEFAULT\Control Panel\Colors\Background"
  22. Sub Plugin_Initialize 
  23.                                'Farbe RR GG BB (:BB 
  24.   Call SetUIElement(1,"Red")   'FF 00 00
  25.   Call SetUIElement(2,"Green") '00 FF 00
  26.   Call SetUIElement(3,"Blue")  '00 00 FF
  27.   Call SetUIElement(4,"Yellow")'Gelb FF FF 00
  28.   Call SetUIElement(5,"White") 'Wei▀ FF FF FF
  29.   Call SetUIElement(6,"Black") 'Schwarz 00 00 00
  30.   Call SetUIElement(7,"Brown") 'Braun A5 2A 2A
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  If ElementIndex=1 then 'Set Color
  38.     if ElementSubIndex=0 then 
  39.        Call MsgWarning("No item selected - please select an item first.")
  40.        Exit sub
  41.     end if
  42.  
  43.     s=""
  44.  
  45.     Select Case ElementSubIndex
  46.     Case 1 'Red
  47.      s="255 00 00"
  48.     Case 2 'Green
  49.      s="00 255 00"
  50.     Case 3 'Blue
  51.      s="00 00 255"
  52.     Case 4 'Yellow
  53.      s="255 255 00"
  54.     Case 5 'White
  55.      s="255 225 225"
  56.     Case 6 'Black
  57.      s="00 00 00"
  58.     Case 7 'Brown
  59.      s="165 42 42"
  60.  
  61.     End Select
  62.  
  63.     Call RegWriteValue(sp,s,1)    
  64.     Call MsgInformatioN("The new color has been set")
  65.  
  66.  else 'Reset Color
  67.     s=RegReadValue(sp)
  68.     if not IsEmpty(s) then
  69.        Call RegDeleteValue(sp)
  70.     end if       
  71.  
  72.     Call MsgInformatioN("The default color has been restored")
  73.  end if
  74.  
  75.  
  76.  Call Logoff()
  77. End Sub
  78.  
  79. Sub Plugin_Terminate 
  80. End Sub
  81.  
  82.  
  83.  
  84.